hh:mm)Usetime = Abs(DateDiff(n， vbOKOnly + vbExclamation，组合查询等等都体现了逻辑的重要性， 0.0)第二种情况 当消费时间小于最小上机时间 按一个递增时间段收费If Usetime = Leasttime ThenUsecash = Unitcashtxtconsume.Text = UnitcashElse第三种情况 最后求出的UnitNumber为递增时间段的个数Usetime = Usetime - pretimeUnitNumber = Usetime Mod UnittimeIf UnitNumber = 0 ThenUnitNumber = Int(Usetime / Unittime)ElseUnitNumber = Int(Usetime / Unittime) + 1End IfUsecash = Format(UnitNumber * Unitcash， 警告！txtcardno.Text = txtcardno.SetFocusmrc.CloseExit SubEnd IfEnd If/span/strong 4、检查是否正在上机 span style=font-size:18px;strong txtSQL = select * from OnLine_Info where cardno= Trim(txtcardno.Text) Set mrcc = executesql(txtSQL，上机挺好做的。

在做上下机的时候首先理清思路。

检查卡内余额是否小于最少上机金额（student_Info表） strongspan style=font-size:18px; 如果卡号能用且没有上机，这才发现不对着呢……为了避免这种情况， msgText/strong)/span 5、没有上机， vbOKOnly + vbExclamation，再把它分解， yyyy-mm-dd)txtofftime.Text = Format(Time。

就可以上机，一股脑的就做起来了，显示主界面显示上机信息和登录人数 strongspan style=font-size:18px;显示登录人数 onflag = onflag + 1 Label19.Caption = onflag 断开数据库连接 mrc.Close/span/strong 7、将这条正在上机的记录添加到OnLine_Info表中 8、将上机记录添加到Line_Info表中 下机 下机的流程图 1、检查是否正在上机 2、更新Line_Info表中的数据（更新下机日期和下机时间） strongspan style=font-size:18px; 判断卡号是否在上机txtSQL = select * from OnLine_Info where cardno= Trim(txtcardno.Text) Set mrc = executesql(txtSQL， 警告mrc.CloseExit SubEnd If/span/strong 6、满足上述条件，以半小时的费用为计算基础Unitcash = Format((Halfcash / 30) * Unittime，做完以后傻了。

这样一点点的进行， msgText)If mrc.EOF ThenMsgBox 此卡尚未注册！， txtofftime， 7、更新基本信息表（student_Info表） 上下机这里主要是逻辑上的思考， 0.0)txtconsume.Text = UsecashEnd IfEnd If计算现有金额： strong span style=font-size:18px; txtSQL = select * from student_Info where cardno= txtcardno Set mrc = executesql(txtSQL。

消费金额为1元 If txtconsumetime.Text = Leasttime Thentxtconsume.Text = 1txtcash.Text = mrc.Fields(7) - Trim(txtconsume.Text) ElseIf Usetime = pretime Then 第一种情况 消费时间小于准备时间，就可以把它做好， txtontime)) ’每天一结账，在机房收费系统中，代码就好写了， ，检查余额If Not mrc.Fields(7) frmbasicctsding.txtlimitcash Then坚持是否余额是否大于最少金额MsgBox 余额不足，不要着急着写代码，如果对流程分析清楚，上机人数也要更新。

不仅仅是上下机， msgText)获得原来的余额Totalcash = mrc.Fields(7)计算消费后的余额Totalcash = Totalcash - Val(Trim(txtconsume.Text))更新余额mrc.Fields(7).Value = Totalcashmrc.Updatemrc.Closetxtcash.Text = Totalcash/span/strong 6、将这些信息更新到主界面对应的文本框中，把思路理清以后就能做好。

到了下机，磨刀不误砍柴工，对要实现的功能有个全局把握，主要原因是没有理清思路。

下面说说我对上下机的认识. 上机 首先是上机的流程图 然后是针对每个流程进行的分析和部分代码，消费金额为0Usecash = 0txtconsume.Text = Usecash Else递增时间段消费的金钱， 警告txtcardno.Text = txtcardno.SetFocusmrc.CloseExit SubElsestatus = Trim(mrc.Fields(10))If mrc.EOF = False And 未使用 = status ThenMsgBox 该卡没有注册！，结账的时候强制用户下机txtconsumetime.Text = Usetime/span/strong 5、计算消费的金额 计算消费的金额 如果消费的时间小于最少时间，请充值！， vbOKOnly + vbExclamation， msgText)If mrc.EOF = True ThenLabel14.Caption = 该卡号还没上机！mrc.CloseExit Sub/span/strong 3、删除OnLine_Info表中的数据 4、计算消费的时间 strongspan style=font-size:24px; 计算上机消耗的时间txtoffdate.Text = Format(Date， 在机房收费系统中，结账，上下机这边花了不少的时间去做它。

1、卡号是否为空 2、卡号是否存在（student_Info表） 3、卡号的状态是否通ky"http://www.it165.net/qq/" target="_blank">qq hscq508OhsaOoc3R1ZGVudF9JbmZvse2jqTwvc3Ryb25nPjwvcD4KPHA+PHN0cm9uZz48L3N0cm9uZz48L3A+CjxwcmUgY2xhc3M9"brush:java;">strongspan style=font-size:18px;检查卡号是否能正常使用txtSQL = select * from student_Info where cardno= Trim(txtcardno.Text) Set mrc = executesql(txtSQL，。